home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / d_d / stanford / charshts / seabrook / macros / takelist < prev    next >
Encoding:
Text File  |  1993-06-22  |  1.2 KB  |  42 lines
  1. #    charsheet/macros/takelist    1.4
  2. #
  3. #    Copyright 1991, Chris Seabrook
  4. #
  5. #    This work may be freely used. modified and distributed for non-commercial
  6. #    purposes so long as it retains this notice.
  7. #
  8. # takelist(number)
  9. .PS
  10. define takelist X
  11.     nslots=$1
  12.     if nslots > 20 then Y
  13.         nslots=20
  14.     Y
  15.     if nslots < 3 then Y
  16.         nslots=3
  17.     Y
  18.     [
  19.         box invis wid 3*sheetwid/12 "\f(HB\s+2Take List\s0\fP"
  20.         box invis wid 3*sheetwid/12 "\f(HBDungeon:\fP"
  21.         box invis wid sheetwid/12
  22.         box invis wid 3*sheetwid/12 "\f(HBDate:\fP"
  23.         box invis wid 2*sheetwid/12
  24.  
  25.         box invis wid 7*sheetwid/24 "\f(HBObject\fP" with .nw at 5th last box.sw
  26.         box invis wid 7*sheetwid/24 "\f(HBLocation\fP"
  27.         box invis wid sheetwid/12 "\f(HB\s-2D.Magic\s0\fP"
  28.         box invis wid sheetwid/12 "\f(HB\s-2Magic\s0\fP"
  29.         box invis wid sheetwid/12 "\f(HB\s-2Identify\s0\fP"
  30.         box invis wid 2*sheetwid/12 "\f(HBCarried by\fP"
  31.         for ccount=1 to nslots do Y
  32.             box ht boxht/2 wid 7*sheetwid/24 with .nw at 6th last box.sw
  33.             box ht boxht/2 wid 7*sheetwid/24
  34.             box ht boxht/2 wid sheetwid/12
  35.             box ht boxht/2 wid sheetwid/12
  36.             box ht boxht/2 wid sheetwid/12
  37.             box ht boxht/2 wid 2*sheetwid/12
  38.         Y
  39.     ] with .n at last box.s + 0,-1*border
  40.     box ht last [].ht+border wid last [].wid+border at last []
  41. X
  42.